home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / endecode.src < prev    next >
Text File  |  1990-10-17  |  522b  |  29 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ by ?
  3. @ for ?
  4. DIR
  5.   DECODE
  6.     \<< \-> f
  7.       \<< DUP f SUBNUM OVER f 1 + SUBNUM 1 - SUB
  8.       \>>
  9.     \>>
  10.   ENCODE
  11.     \<< DUP 2 + DUP 1 - STRCON \-> n data
  12.       \<< 1 n
  13.         FOR i data i SUBNUM OVER SIZE + data SWAP i 1 + SWAP CHR REPL SWAP
  14.           + 'data' STO
  15.         NEXT data
  16.       \>>
  17.     \>>
  18.   STRCON
  19.     \<< \-> code count
  20.       \<< "" code CHR 'code' STO 1 count
  21.         START code +
  22.         NEXT
  23.       \>>
  24.     \>>
  25.   SUBNUM
  26.     \<< DUP SUB NUM
  27.     \>>
  28. END
  29.